home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pp001.zip / EX3.PRG < prev    next >
Text File  |  1991-04-11  |  181b  |  16 lines

  1. Program EX3;
  2. var
  3.   a : byte;
  4. begin
  5.   A := 65;
  6.   While (A <= 90) do
  7.   begin
  8.     Write(A);
  9.     Emit(32,32,32,32,A,13,10);
  10.     A := A + 1;
  11.   end;
  12.   emit(13,10);
  13. end.
  14.  
  15. .
  16.